member:: (Integer, [Integer]) -> Bool
member (x, []) = False
member (x, (cab: cola)) = if (x == cab)
							then True
							else member (x, cola)
							
iguales:: ([Integer], [Integer]) -> Bool
iguales ([], []) = True
iguales ((cab1:cola1), (cab2:cola2)) = if (cab1==cab2)
										then (iguales (cola1, cola2))
										else False

-- Obtiene la cabeza de una Lista simple.
cabezaLista:: [a] -> a
cabezaLista (cabeza:cola) = cabeza										
										
-- Suma el contenido de la lista. Los elementos tiene que ser de tipo INT
sumaElementosLista:: [Integer] -> Integer
sumaElementosLista [] = 0
sumaElementosLista (cab:cola) = cab + sumaElementosLista(cola)

-- Concatena Listas
concatListas:: [[a]] -> [a]
concatListas [] = []
concatListas ([]:colaLista) = concatListas(colaLista)
concatListas ((cab:cola):colaListas) = cab:(concatListas(cola:colaListas))
